<%@ CodePage="936" LCID="2052" %>
<!--#include file="lc_ewcfg8.asp"-->
<!--#include file="lc_aspfn8.asp"-->
<!--#include file="lc_userfn8.asp"-->
<%

' Get Menu Text
Function GetMenuText(Id, Text)
	GetMenuText = Language.MenuPhrase(Id, "MenuText")
	If GetMenuText = "" Then GetMenuText = Text
End Function
%>
<!-- Begin Main Menu -->
<div class="aspmaker">
<%

' Initialize language object
Set Language = New cLanguage

' Generate all menu items
Dim RootMenu
Set RootMenu = new cMenu
RootMenu.Id = "RootMenu"
RootMenu.IsRoot = True
RootMenu.AddMenuItem 1, GetMenuText("1", "Company"), "lc_companylist.asp", -1, "", "", IsLoggedIn()
RootMenu.AddMenuItem 2, GetMenuText("2", "department"), "lc_departmentlist.asp", -1, "", "", IsLoggedIn()
RootMenu.AddMenuItem 3, GetMenuText("3", "donation"), "lc_donationlist.asp", -1, "", "", IsLoggedIn()
RootMenu.AddMenuItem 4, GetMenuText("4", "messages"), "lc_messageslist.asp", -1, "", "", IsLoggedIn()
RootMenu.AddMenuItem 5, GetMenuText("5", "fee log"), "lc_fee_loglist.asp", -1, "", "", IsLoggedIn()
RootMenu.AddMenuItem 6, GetMenuText("6", "Recruitment"), "lc_recruitmentlist.asp", -1, "", "", IsLoggedIn()
RootMenu.AddMenuItem 7, GetMenuText("7", "service"), "lc_servicelist.asp", -1, "", "", IsLoggedIn()
RootMenu.AddMenuItem 8, GetMenuText("8", "sys dept"), "lc_sys_deptlist.asp", -1, "", "", IsLoggedIn()
RootMenu.AddMenuItem 9, GetMenuText("9", "sys company cat"), "lc_sys_company_catlist.asp", -1, "", "", IsLoggedIn()
RootMenu.AddMenuItem 10, GetMenuText("10", "user dept link"), "lc_user_dept_linklist.asp", -1, "", "", IsLoggedIn()
RootMenu.AddMenuItem 11, GetMenuText("11", "user"), "lc_userlist.asp", -1, "", "", IsLoggedIn()
RootMenu.AddMenuItem 12, GetMenuText("12", "log tbl"), "lc_log_tbllist.asp", -1, "", "", IsLoggedIn()
RootMenu.AddMenuItem &HFFFFFFFE, Language.Phrase("ChangePwd"), "lc_changepwd.asp", -1, "", "", (IsLoggedIn() And Not IsSysAdmin())
RootMenu.AddMenuItem &HFFFFFFFF, Language.Phrase("Logout"), "lc_logout.asp", -1, "", "", IsLoggedIn()
RootMenu.AddMenuItem &HFFFFFFFF, Language.Phrase("Login"), "lc_login.asp", -1, "", "", (Not IsLoggedIn() And Right(Request.ServerVariables("URL"), Len("lc_login.asp")) <> "lc_login.asp")
RootMenu.Render
Set RootMenu = Nothing
%>
</div>
<!-- End Main Menu -->
